home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
akcl
/
kcl.lha
/
cmpnew
/
cmploc.c
< prev
next >
Wrap
C/C++ Source or Header
|
1987-06-04
|
18KB
|
831 lines
/* (C) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved. */
#include <cmpinclude.h>
#include "cmploc.h"
init_cmploc(start,size,data)char *start;int size;object data;
{ register object *base=vs_top;register object *sup=base+VM2;vs_top=sup;vs_check;
Cstart=start;Csize=size;Cdata=data;set_VV(VV,VM1,data);
VV[0]->s.s_stype=(short)stp_special;
(void)(putprop(VV[1],VV[2],VV[3]));
(void)(putprop(VV[4],VV[5],VV[3]));
(void)(putprop(VV[6],VV[7],VV[3]));
(void)(putprop(VV[8],VV[9],VV[3]));
(void)(putprop(VV[10],VV[11],VV[3]));
(void)(putprop(VV[12],VV[13],VV[3]));
(void)(putprop(VV[14],VV[15],VV[3]));
(void)(putprop(VV[16],VV[17],VV[3]));
(void)(putprop(VV[18],VV[19],VV[3]));
(void)(putprop(VV[20],VV[21],VV[3]));
(void)(putprop(VV[22],VV[23],VV[3]));
(void)(putprop(VV[24],VV[25],VV[3]));
(void)(putprop(VV[26],VV[27],VV[3]));
(void)(putprop(VV[28],VV[29],VV[3]));
MF(VV[41],L15,start,size,data);
MF(VV[3],L16,start,size,data);
MF(VV[56],L17,start,size,data);
MF(VV[57],L18,start,size,data);
MF(VV[13],L19,start,size,data);
MF(VV[7],L20,start,size,data);
MF(VV[9],L21,start,size,data);
MF(VV[11],L22,start,size,data);
MF(VV[2],L23,start,size,data);
MF(VV[5],L24,start,size,data);
MF(VV[17],L25,start,size,data);
MF(VV[58],L26,start,size,data);
MF(VV[15],L27,start,size,data);
MF(VV[21],L28,start,size,data);
MF(VV[59],L29,start,size,data);
MF(VV[19],L30,start,size,data);
MF(VV[25],L31,start,size,data);
MF(VV[60],L32,start,size,data);
MF(VV[23],L33,start,size,data);
MF(VV[29],L34,start,size,data);
MF(VV[61],L35,start,size,data);
MF(VV[27],L36,start,size,data);
vs_top=vs_base=base;
}
/* function definition for SET-LOC */
static L15()
{ register object *base=vs_base;
register object *sup=base+VM3;
vs_reserve(VM3);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= Cnil;
if(!(symbol_value(VV[0])==VV[30])){
goto T16;}
base[2]= base[0];
vs_top=(vs_base=base+2)+1;
L17();
return;
T16:;
if(!(symbol_value(VV[0])==VV[31])){
goto T20;}
if(!(type_of(base[0])==t_cons)){
goto T23;}
{object x= car(base[0]),V1= VV[32];
while(!endp(V1))
if(eql(x,V1->c.c_car)){
goto T27;
}else V1=V1->c.c_cdr;
goto T23;}
T27:;
if((cadr(base[0]))==Cnil){
goto T23;}
princ_str("\n (void)(",VV[33]);
base[2]= Ct;
base[3]= caddr(base[0]);
base[4]= cadddr(base[0]);
(void)simple_symlispcall_no_event(VV[62],base+2,3);
princ_str(");",VV[33]);
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T23:;
if(!(type_of(base[0])==t_cons)){
goto T37;}
if(!(car(base[0])==VV[34])){
goto T37;}
princ_str("\n (void)",VV[33]);
base[2]= base[0];
(void)simple_symlispcall_no_event(VV[63],base+2,1);
princ_char(59,VV[33]);
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T37:;
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T20:;
if(!(symbol_value(VV[0])==VV[35])){
goto T46;}
if(base[0]==VV[36]){
goto T49;}
base[2]= base[0];
vs_top=(vs_base=base+2)+1;
L18();
return;
T49:;
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T46:;
if(!(symbol_value(VV[0])==VV[37])){
goto T53;}
base[2]= base[0];
symlispcall_no_event(VV[64],base+2,1);
return;
T53:;
if(!(symbol_value(VV[0])==VV[38])){
goto T57;}
base[2]= base[0];
symlispcall_no_event(VV[65],base+2,1);
return;
T57:;
if(!(symbol_value(VV[0])==VV[39])){
goto T61;}
base[2]= base[0];
symlispcall_no_event(VV[66],base+2,1);
return;
T61:;
if(!(symbol_value(VV[0])==VV[40])){
goto T65;}
base[2]= base[0];
symlispcall_no_event(VV[67],base+2,1);
return;
T65:;
if(!(type_of(symbol_value(VV[0]))==t_cons)){
goto T68;}
if(type_of(car(symbol_value(VV[0])))==t_symbol){
goto T69;}
T68:;
symlispcall_no_event(VV[68],base+2,0);
return;
T69:;
base[1]= get(car(symbol_value(VV[0])),VV[41],Cnil);
if((base[1])==Cnil){
goto T74;}
base[2]= base[1];
base[3]= base[0];
{object V2;
V2= cdr(symbol_value(VV[0]));
vs_top=base+4;
while(!endp(V2))
{vs_push(car(V2));V2=cdr(V2);}
vs_base=base+3;}
super_funcall_no_event(base[2]);
return;
T74:;
base[1]= get(car(symbol_value(VV[0])),VV[3],Cnil);
if((base[1])==Cnil){
goto T81;}
princ_str("\n ",VV[33]);
base[2]= base[1];
{object V3;
V3= cdr(symbol_value(VV[0]));
vs_top=base+3;
while(!endp(V3))
{vs_push(car(V3));V3=cdr(V3);}
vs_base=base+3;}
super_funcall_no_event(base[2]);
vs_top=sup;
princ_str("= ",VV[33]);
base[2]= base[0];
(void)simple_symlispcall_no_event(VV[63],base+2,1);
princ_char(59,VV[33]);
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T81:;
symlispcall_no_event(VV[68],base+2,0);
return;
}
/* function definition for WT-LOC */
static L16()
{ register object *base=vs_base;
register object *sup=base+VM4;
vs_reserve(VM4);
check_arg(1);
vs_top=sup;
TTL:;
if(!(base[0]==Cnil)){
goto T93;}
princ_str("Cnil",VV[33]);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T93:;
if(!(base[0]==Ct)){
goto T97;}
princ_str("Ct",VV[33]);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T97:;
if(!(base[0]==VV[36])){
goto T101;}
princ_str("vs_base[0]",VV[33]);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T101:;
if(!(type_of(base[0])==t_cons)){
goto T104;}
if(type_of(car(base[0]))==t_symbol){
goto T105;}
T104:;
symlispcall_no_event(VV[68],base+1,0);
return;
T105:;
base[1]= get(car(base[0]),VV[3],Cnil);
if((base[1])!=Cnil){
goto T110;}
(void)simple_symlispcall_no_event(VV[68],base+2,0);
T110:;
base[2]= base[1];
{object V4;
V4= cdr(base[0]);
vs_top=base+3;
while(!endp(V4))
{vs_push(car(V4));V4=cdr(V4);}
vs_base=base+3;}
super_funcall_no_event(base[2]);
return;
}
/* function definition for SET-RETURN */
static L17()
{ register object *base=vs_base;
register object *sup=base+VM5;
vs_reserve(VM5);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= (base[0]==VV[36]?Ct:Cnil);
if((base[1])==Cnil){
goto T117;}
vs_top=(vs_base=base+1)+1;
return;
T117:;
if(!(type_of(base[0])==t_cons)){
goto T120;}
if(!(car(base[0])==VV[42])){
goto T120;}
if(!(number_compare(caadr(base[0]),symbol_value(VV[43]))==0)){
goto T120;}
princ_str("\n vs_top=(vs_base=base+",VV[33]);
base[2]= cdadr(base[0]);
(void)simple_symlispcall_no_event(VV[63],base+2,1);
princ_str(")+1;",VV[33]);
setq(VV[44],Ct);
base[2]= Ct;
vs_top=(vs_base=base+2)+1;
return;
T120:;
if(!(type_of(base[0])==t_cons)){
goto T133;}
if(!(car(base[0])==VV[45])){
goto T133;}
if(!(structure_ref(cadr(base[0]),VV[45],1)==VV[46])){
goto T133;}
if((structure_ref(cadr(base[0]),VV[45],3))!=Cnil){
goto T133;}
if(!(number_compare(car(structure_ref(cadr(base[0]),VV[45],2)),symbol_value(VV[43]))==0)){
goto T133;}
princ_str("\n vs_top=(vs_base=base+",VV[33]);
base[2]= cdr(structure_ref(cadr(base[0]),VV[45],2));
(void)simple_symlispcall_no_event(VV[63],base+2,1);
princ_str(")+1;",VV[33]);
setq(VV[44],Ct);
base[2]= Ct;
vs_top=(vs_base=base+2)+1;
return;
T133:;
base[2]= base[0];
vs_top=(vs_base=base+2)+1;
L18();
return;
}
/* function definition for SET-TOP */
static L18()
{ register object *base=vs_base;
register object *sup=base+VM6;
vs_reserve(VM6);
bds_check;
check_arg(1);
vs_top=sup;
TTL:;
bds_bind(VV[47],symbol_value(VV[47]));
princ_str("\n ",VV[33]);
base[2]=symbol_function(VV[69]);
base[3]= simple_symlispcall_no_event(VV[70],base+4,0);
(void)simple_lispcall_no_event(base+2,1);
princ_str("= ",VV[33]);
base[2]= base[0];
(void)simple_symlispcall_no_event(VV[63],base+2,1);
princ_char(59,VV[33]);
princ_str("\n vs_top=(vs_base=base+",VV[33]);
base[2]= one_minus((VV[47]->s.s_dbind));
(void)simple_symlispcall_no_event(VV[63],base+2,1);
princ_str(")+1;",VV[33]);
setq(VV[44],Ct);
base[2]= Ct;
vs_top=(vs_base=base+2)+1;
bds_unwind1;
return;
}
/* function definition for WT-VS-BASE */
static L19()
{ register object *base=vs_base;
register object *sup=base+VM7;
vs_reserve(VM7);
check_arg(1);
vs_top=sup;
TTL:;
princ_str("vs_base[",VV[33]);
base[1]= base[0];
(void)simple_symlispcall_no_event(VV[63],base+1,1);
princ_char(93,VV[33]);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for WT-CAR */
static L20()
{ register object *base=vs_base;
register object *sup=base+VM8;
vs_reserve(VM8);
check_arg(1);
vs_top=sup;
TTL:;
princ_str("(V",VV[33]);
base[1]= base[0];
(void)simple_symlispcall_no_event(VV[63],base+1,1);
princ_str("->c.c_car)",VV[33]);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for WT-CDR */
static L21()
{ register object *base=vs_base;
register object *sup=base+VM9;
vs_reserve(VM9);
check_arg(1);
vs_top=sup;
TTL:;
princ_str("(V",VV[33]);
base[1]= base[0];
(void)simple_symlispcall_no_event(VV[63],base+1,1);
princ_str("->c.c_cdr)",VV[33]);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for WT-CADR */
static L22()
{ register object *base=vs_base;
register object *sup=base+VM10;
vs_reserve(VM10);
check_arg(1);
vs_top=sup;
TTL:;
princ_str("(V",VV[33]);
base[1]= base[0];
(void)simple_symlispcall_no_event(VV[63],base+1,1);
princ_str("->c.c_cdr->c.c_car)",VV[33]);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for WT-CVAR */
static L23()
{ register object *base=vs_base;
register object *sup=base+VM11;
vs_reserve(VM11);
check_arg(1);
vs_top=sup;
TTL:;
princ_char(86,VV[33]);
base[1]= base[0];
(void)simple_symlispcall_no_event(VV[63],base+1,1);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for WT-VV */
static L24()
{ register object *base=vs_base;
register object *sup=base+VM12;
vs_reserve(VM12);
check_arg(1);
vs_top=sup;
TTL:;
princ_str("VV[",VV[33]);
base[1]= base[0];
(void)simple_symlispcall_no_event(VV[63],base+1,1);
princ_char(93,VV[33]);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for WT-FIXNUM-LOC */
static L25()
{ register object *base=vs_base;
register object *sup=base+VM13;
vs_reserve(VM13);
check_arg(1);
vs_top=sup;
TTL:;
if(!(type_of(base[0])==t_cons)){
goto T188;}
if(!(car(base[0])==VV[45])){
goto T188;}
if(!(structure_ref(cadr(base[0]),VV[45],1)==VV[48])){
goto T188;}
princ_char(86,VV[33]);
base[1]= structure_ref(cadr(base[0]),VV[45],4);
(void)simple_symlispcall_no_event(VV[63],base+1,1);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T188:;
if(!(type_of(base[0])==t_cons)){
goto T198;}
if(!(car(base[0])==VV[49])){
goto T198;}
base[1]= caddr(base[0]);
base[2]= cadddr(base[0]);
symlispcall_no_event(VV[71],base+1,2);
return;
T198:;
if(!(type_of(base[0])==t_cons)){
goto T205;}
if(!(car(base[0])==VV[14])){
goto T205;}
base[1]= caddr(base[0]);
(void)simple_symlispcall_no_event(VV[63],base+1,1);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T205:;
princ_str("fix(",VV[33]);
base[1]= base[0];
(void)simple_symlispcall_no_event(VV[63],base+1,1);
princ_char(41,VV[33]);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for FIXNUM-LOC-P */
static L26()
{ register object *base=vs_base;
register object *sup=base+VM14;
vs_reserve(VM14);
check_arg(1);
vs_top=sup;
TTL:;
if(type_of(base[0])==t_cons){
goto T215;}
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T215:;
if(car(base[0])==VV[45]){
goto T219;}
base[1]= Cnil;
goto T218;
T219:;
base[1]= (structure_ref(cadr(base[0]),VV[45],1)==VV[48]?Ct:Cnil);
T218:;
if(base[1]==Cnil)goto T217;
vs_top=(vs_base=base+1)+1;
return;
T217:;
if(!(car(base[0])==VV[49])){
goto T221;}
base[2]= Ct;
vs_top=(vs_base=base+2)+1;
return;
T221:;
base[2]= (car(base[0])==VV[14]?Ct:Cnil);
vs_top=(vs_base=base+2)+1;
return;
}
/* function definition for WT-FIXNUM-VALUE */
static L27()
{ register object *base=vs_base;
register object *sup=base+VM15;
vs_reserve(VM15);
check_arg(2);
vs_top=sup;
TTL:;
princ_str("VV[",VV[33]);
base[2]= base[0];
(void)simple_symlispcall_no_event(VV[63],base+2,1);
princ_char(93,VV[33]);
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
}
/* function definition for WT-CHARACTER-LOC */
static L28()
{ register object *base=vs_base;
register object *sup=base+VM16;
vs_reserve(VM16);
check_arg(1);
vs_top=sup;
TTL:;
if(!(type_of(base[0])==t_cons)){
goto T228;}
if(!(car(base[0])==VV[45])){
goto T228;}
if(!(structure_ref(cadr(base[0]),VV[45],1)==VV[50])){
goto T228;}
princ_char(86,VV[33]);
base[1]= structure_ref(cadr(base[0]),VV[45],4);
(void)simple_symlispcall_no_event(VV[63],base+1,1);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T228:;
if(!(type_of(base[0])==t_cons)){
goto T238;}
if(!(car(base[0])==VV[51])){
goto T238;}
base[1]= caddr(base[0]);
base[2]= cadddr(base[0]);
symlispcall_no_event(VV[71],base+1,2);
return;
T238:;
if(!(type_of(base[0])==t_cons)){
goto T245;}
if(!(car(base[0])==VV[18])){
goto T245;}
base[1]= caddr(base[0]);
(void)simple_symlispcall_no_event(VV[63],base+1,1);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T245:;
princ_str("char_code(",VV[33]);
base[1]= base[0];
(void)simple_symlispcall_no_event(VV[63],base+1,1);
princ_char(41,VV[33]);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for CHARACTER-LOC-P */
static L29()
{ register object *base=vs_base;
register object *sup=base+VM17;
vs_reserve(VM17);
check_arg(1);
vs_top=sup;
TTL:;
if(type_of(base[0])==t_cons){
goto T255;}
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T255:;
if(car(base[0])==VV[45]){
goto T259;}
base[1]= Cnil;
goto T258;
T259:;
base[1]= (structure_ref(cadr(base[0]),VV[45],1)==VV[50]?Ct:Cnil);
T258:;
if(base[1]==Cnil)goto T257;
vs_top=(vs_base=base+1)+1;
return;
T257:;
if(!(car(base[0])==VV[51])){
goto T261;}
base[2]= Ct;
vs_top=(vs_base=base+2)+1;
return;
T261:;
base[2]= (car(base[0])==VV[18]?Ct:Cnil);
vs_top=(vs_base=base+2)+1;
return;
}
/* function definition for WT-CHARACTER-VALUE */
static L30()
{ register object *base=vs_base;
register object *sup=base+VM18;
vs_reserve(VM18);
check_arg(2);
vs_top=sup;
TTL:;
princ_str("VV[",VV[33]);
base[2]= base[0];
(void)simple_symlispcall_no_event(VV[63],base+2,1);
princ_char(93,VV[33]);
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
}
/* function definition for WT-LONG-FLOAT-LOC */
static L31()
{ register object *base=vs_base;
register object *sup=base+VM19;
vs_reserve(VM19);
check_arg(1);
vs_top=sup;
TTL:;
if(!(type_of(base[0])==t_cons)){
goto T268;}
if(!(car(base[0])==VV[45])){
goto T268;}
if(!(structure_ref(cadr(base[0]),VV[45],1)==VV[52])){
goto T268;}
princ_char(86,VV[33]);
base[1]= structure_ref(cadr(base[0]),VV[45],4);
(void)simple_symlispcall_no_event(VV[63],base+1,1);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T268:;
if(!(type_of(base[0])==t_cons)){
goto T278;}
if(!(car(base[0])==VV[53])){
goto T278;}
base[1]= caddr(base[0]);
base[2]= cadddr(base[0]);
symlispcall_no_event(VV[71],base+1,2);
return;
T278:;
if(!(type_of(base[0])==t_cons)){
goto T285;}
if(!(car(base[0])==VV[22])){
goto T285;}
base[1]= caddr(base[0]);
(void)simple_symlispcall_no_event(VV[63],base+1,1);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T285:;
princ_str("lf(",VV[33]);
base[1]= base[0];
(void)simple_symlispcall_no_event(VV[63],base+1,1);
princ_char(41,VV[33]);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for LONG-FLOAT-LOC-P */
static L32()
{ register object *base=vs_base;
register object *sup=base+VM20;
vs_reserve(VM20);
check_arg(1);
vs_top=sup;
TTL:;
if(type_of(base[0])==t_cons){
goto T295;}
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T295:;
if(car(base[0])==VV[45]){
goto T299;}
base[1]= Cnil;
goto T298;
T299:;
base[1]= (structure_ref(cadr(base[0]),VV[45],1)==VV[52]?Ct:Cnil);
T298:;
if(base[1]==Cnil)goto T297;
vs_top=(vs_base=base+1)+1;
return;
T297:;
if(!(car(base[0])==VV[53])){
goto T301;}
base[2]= Ct;
vs_top=(vs_base=base+2)+1;
return;
T301:;
base[2]= (car(base[0])==VV[22]?Ct:Cnil);
vs_top=(vs_base=base+2)+1;
return;
}
/* function definition for WT-LONG-FLOAT-VALUE */
static L33()
{ register object *base=vs_base;
register object *sup=base+VM21;
vs_reserve(VM21);
check_arg(2);
vs_top=sup;
TTL:;
princ_str("VV[",VV[33]);
base[2]= base[0];
(void)simple_symlispcall_no_event(VV[63],base+2,1);
princ_char(93,VV[33]);
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
}
/* function definition for WT-SHORT-FLOAT-LOC */
static L34()
{ register object *base=vs_base;
register object *sup=base+VM22;
vs_reserve(VM22);
check_arg(1);
vs_top=sup;
TTL:;
if(!(type_of(base[0])==t_cons)){
goto T308;}
if(!(car(base[0])==VV[45])){
goto T308;}
if(!(structure_ref(cadr(base[0]),VV[45],1)==VV[54])){
goto T308;}
princ_char(86,VV[33]);
base[1]= structure_ref(cadr(base[0]),VV[45],4);
(void)simple_symlispcall_no_event(VV[63],base+1,1);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T308:;
if(!(type_of(base[0])==t_cons)){
goto T318;}
if(!(car(base[0])==VV[55])){
goto T318;}
base[1]= caddr(base[0]);
base[2]= cadddr(base[0]);
symlispcall_no_event(VV[71],base+1,2);
return;
T318:;
if(!(type_of(base[0])==t_cons)){
goto T325;}
if(!(car(base[0])==VV[26])){
goto T325;}
base[1]= caddr(base[0]);
(void)simple_symlispcall_no_event(VV[63],base+1,1);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T325:;
princ_str("sf(",VV[33]);
base[1]= base[0];
(void)simple_symlispcall_no_event(VV[63],base+1,1);
princ_char(41,VV[33]);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for SHORT-FLOAT-LOC-P */
static L35()
{ register object *base=vs_base;
register object *sup=base+VM23;
vs_reserve(VM23);
check_arg(1);
vs_top=sup;
TTL:;
if(type_of(base[0])==t_cons){
goto T335;}
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T335:;
if(car(base[0])==VV[45]){
goto T339;}
base[1]= Cnil;
goto T338;
T339:;
base[1]= (structure_ref(cadr(base[0]),VV[45],1)==VV[54]?Ct:Cnil);
T338:;
if(base[1]==Cnil)goto T337;
vs_top=(vs_base=base+1)+1;
return;
T337:;
if(!(car(base[0])==VV[55])){
goto T341;}
base[2]= Ct;
vs_top=(vs_base=base+2)+1;
return;
T341:;
base[2]= (car(base[0])==VV[26]?Ct:Cnil);
vs_top=(vs_base=base+2)+1;
return;
}
/* function definition for WT-SHORT-FLOAT-VALUE */
static L36()
{ register object *base=vs_base;
register object *sup=base+VM24;
vs_reserve(VM24);
check_arg(2);
vs_top=sup;
TTL:;
princ_str("VV[",VV[33]);
base[2]= base[0];
(void)simple_symlispcall_no_event(VV[63],base+2,1);
princ_char(93,VV[33]);
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
}